VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "RES"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False


Public Function resString(ID As Integer) As String

On Error GoTo err

resString = LoadResString(ID)

Exit Function


err:
    Resume Next
End Function


Public Sub resPicture(Frm As Form, dstPictureBox As PictureBox, ID As Integer)
On Error GoTo err
Frm.dstPictureBox.Picture = LoadResPicture(ID, 0)

Exit Sub
err:
    Resume Next
End Sub

Public Sub resIconFrm(Frm As Form, ID As Integer)
On Error GoTo err
Frm.Icon = LoadResPicture(ID, 1)

Exit Sub
err:
    Resume Next
End Sub
